home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 August / 1987-08.d64 / flip demo.note (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  876 b   |  24 lines
  1. 10 poke 53280,4:poke 53281,4:poke 646,0
  2. 20 printchr$(14)"[147][212]he [211]prite [198]lip [196]emo will work only"
  3. 30 print"with the [211]prite [198]lip routine in memory."
  4. 40 print"[198]irst, you must run the [211]prite [198]lip"
  5. 50 print"program ([208]age 1, [201]tem 2 from the menu)."
  6. 60 print"[208]lease consult the article for"
  7. 70 print"instructions on how to use [211]prite [198]lip"
  8. 80 print"in your own programs.[155]"
  9. 90 ford=1to38:print"[164]";:next:print
  10. 100 print"[155]    [208][210][197][211][211] [210][197][212][213][210][206] [212][207] [210][197][204][207][193][196] [212][200][197] [205][197][206][213]   [146]"
  11. 110 ford=1to38:print"[164]";:next:print
  12. 120 print"[155]     [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [210][213][206] [212][200][197] [196][197][205][207]    [146]"
  13. 130 poke198,0:wait198,1:getdh$
  14. 140 if dh$=chr$(13)then160
  15. 150 if dh$<>chr$(13)then200
  16. 160 print"[147]":s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  17. 170 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  18. 180 poke53281,15:poke53280,15
  19. 190 printchr$(142)"[145]          reloading the menu[155]":end
  20. 200 print"[147][156]load"chr$(34)"sprite flip demo"chr$(34)",8"
  21. 210 print"run"
  22. 220 printchr$(142)"[144]just a moment...loading sprite flip demo[156]";
  23. 230 fori=1to2:poke630+i,13:next:poke198,i
  24.